home *** CD-ROM | disk | FTP | other *** search
- object game: Tgame
- Left = 68
- Top = 258
- Width = 970
- Height = 455
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- Caption = 'game'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 344
- Top = 136
- Width = 39
- Height = 13
- Caption = 'Ob Nom'
- end
- object Label2: TLabel
- Left = 408
- Top = 136
- Width = 99
- Height = 13
- Caption = 'Object DESC Listbox'
- end
- object Label3: TLabel
- Left = 776
- Top = 296
- Width = 183
- Height = 13
- Caption = 'Objects in player'#39's inventory by index #'
- end
- object Label4: TLabel
- Left = 8
- Top = 136
- Width = 95
- Height = 13
- Caption = 'Room Name Listbox'
- end
- object Label5: TLabel
- Left = 136
- Top = 136
- Width = 101
- Height = 13
- Caption = 'ROOM DESC Listbox'
- end
- object Label6: TLabel
- Left = 648
- Top = 136
- Width = 131
- Height = 13
- Caption = 'ROOM PROPERTY Listbox'
- end
- object Label7: TLabel
- Left = 752
- Top = 0
- Width = 129
- Height = 13
- Caption = 'Object PROPERTY Listbox'
- end
- object Label8: TLabel
- Left = 288
- Top = 136
- Width = 14
- Height = 13
- Caption = 'loc'
- end
- object Label9: TLabel
- Left = 280
- Top = 0
- Width = 137
- Height = 13
- Caption = 'Object CONDITIONS Listbox'
- end
- object Label10: TLabel
- Left = 480
- Top = 0
- Width = 81
- Height = 13
- Caption = 'SPECIAL STUFF'
- end
- object Label11: TLabel
- Left = 320
- Top = 136
- Width = 19
- Height = 13
- Caption = 'Sho'
- end
- object Label12: TLabel
- Left = 824
- Top = 16
- Width = 30
- Height = 13
- Caption = 'Listing'
- end
- object Label13: TLabel
- Left = 880
- Top = 16
- Width = 27
- Height = 13
- Caption = 'Paths'
- end
- object screenie: TMemo
- Left = 0
- Top = 0
- Width = 241
- Height = 129
- Color = clNavy
- Ctl3D = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -27
- Font.Name = 'System'
- Font.Pitch = fpFixed
- Font.Style = [fsBold]
- Lines.Strings = (
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- ''
- '')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- OnEnter = screenieEnter
- OnMouseDown = screenieMouseDown
- end
- object Edit1: TEdit
- Left = 0
- Top = 112
- Width = 241
- Height = 36
- Color = clNavy
- Ctl3D = False
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -27
- Font.Name = 'System'
- Font.Pitch = fpFixed
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 1
- OnKeyUp = Edit1KeyUp
- end
- object objectname: TListBox
- Left = 344
- Top = 152
- Width = 49
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
- 'Aliens'
- 'Lever'
- 'South'
- 'Hallway'
- 'East'
- 'table'
- 'consoles'
- 'console'
- 'west'
- 'wall'
- 'north'
- 'Strange Device')
- ParentFont = False
- TabOrder = 2
- end
- object objectdesc: TListBox
- Left = 400
- Top = 152
- Width = 241
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
- 'The aliens look at you expectantly.'
-
- 'The lever is in the up position. The door next to it looks thick' +
- ' and heavy.'
-
- 'The lever is in the up position. The door next to it looks thick' +
- ' and heavy.'
-
- 'The passageway heads into darkness, but you think you can faintl' +
- 'y see that it ends at the junction of another passage.'
-
- 'The passageway heads into darkness, but you think you can faintl' +
- 'y see that it ends at the junction of another passage.'
- 'The table is cold and hard.'
-
- 'The consoles to the west flash with indecipherable text. You rem' +
- 'ember that one of them is a translator that Coconut Monkey fixed' +
- ' several episodes ago.'
-
- 'The consoles to the west flash with indecipherable text. You rem' +
- 'ember that one of them is a translator that Coconut Monkey fixed' +
- ' several episodes ago.'
-
- 'The consoles to the west flash with indecipherable text. You rem' +
- 'ember that one of them is a translator that Coconut Monkey fixed' +
- ' several episodes ago.'
- 'The north wall is completely blank.'
- 'The north wall is completely blank.'
-
- 'The strange device looks a bit like a small barrel. There is a b' +
- 'ig red button on top, with some text written underneath.')
- ParentFont = False
- TabOrder = 3
- end
- object ListBox3: TListBox
- Left = 768
- Top = 312
- Width = 185
- Height = 97
- ItemHeight = 13
- Items.Strings = (
- '1')
- TabOrder = 4
- end
- object roomname: TListBox
- Left = 8
- Top = 152
- Width = 121
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
-
- 'You are in a circular room seemingly built of metal. To the nort' +
- 'h is a flat wall with nothing on it. To the west are two console' +
- 's with flashing buttons and screens displaying strange symbols a' +
- 'nd lines of alien text. To the south, you see a small doorway wi' +
- 'th a lever next to it. Above the lever is a plaque containing li' +
- 'nes of alien text. To the east you see a hallway leading to into' +
- ' darkness. You'#39're sitting on a metal table, and surrounded by fo' +
- 'ur tall, humanoid aliens with looks on their faces you can only ' +
- 'describe as being anxious.'
-
- 'The door is beginning to open, and you start to feel yourself ge' +
- 'tting sucked toward the opening.'
-
- 'You'#39're in the middle of an intersection. You see the passage con' +
- 'tinue to the north and south, curving so you can'#39't see the ends.' +
- ' To the west, you can see a brightly lit room with a metal table' +
- ' in the center. There is a knob with alien text above it here.'
-
- 'You'#39're in the middle of an intersection. You see the passage con' +
- 'tinue to the north and south, curving so you can'#39't see the ends.' +
- ' To the west, you can see a big metal door. There is a knob with' +
- ' alien text above it here.'
-
- 'You are in what must be the UFO control room. A large viewscreen' +
- ' filled with an image of a black hole is to the north, and flash' +
- 'ing buttons and monitor screens show digital readouts all around' +
- ' you. Four aliens look frantic as they eye the black hole loomin' +
- 'g closer.'
-
- 'The south passageway ends in a small room with a door on the far' +
- ' wall. The door stands open, and you see a strange device standi' +
- 'ng in the middle of an even small room. The device has a single ' +
- 'red button on top, and a line of text written underneath the but' +
- 'ton.')
- ParentFont = False
- TabOrder = 5
- end
- object roomdesc: TListBox
- Left = 136
- Top = 152
- Width = 137
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
-
- 'You are in a circular room seemingly built of metal. To the nort' +
- 'h is a flat wall with nothing on it. To the west are two console' +
- 's with flashing buttons and screens displaying strange symbols a' +
- 'nd lines of alien text. To the south, you see a small doorway wi' +
- 'th a lever next to it. Above the lever is a plaque containing li' +
- 'nes of alien text. To the east you see a hallway leading to into' +
- ' darkness. You'#39're sitting on a metal table, and surrounded by fo' +
- 'ur tall, humanoid aliens with looks on their faces you can only ' +
- 'describe as being anxious.'
-
- 'The door is beginning to open, and you start to feel yourself ge' +
- 'tting sucked toward the opening'
-
- 'You'#39're in the middle of an intersection. You see the passage con' +
- 'tinue to the north and south, curving so you can'#39't see the ends.' +
- ' To the west, you can see a brightly lit room with a metal table' +
- ' in the center. There is a knob with alien text above it here.'
-
- 'You'#39're in the middle of an intersection. You see the passage con' +
- 'tinue to the north and south, curving so you can'#39't see the ends.' +
- ' To the west, you can see a big metal door. There is a knob with' +
- ' alien text above it here.'
-
- 'You are in what must be the UFO control room. A large viewscreen' +
- ' filled with an image of a black hole is to the north, and flash' +
- 'ing buttons and monitor screens show digital readouts all around' +
- ' you. Four aliens look frantic as they eye the black hole loomin' +
- 'g closer.'
-
- 'The south passageway ends in a small room with a door on the far' +
- ' wall. The door stands open, and you see a strange device standi' +
- 'ng in the middle of an even small room. The device has a single ' +
- 'red button on top, and a line of text written underneath the but' +
- 'ton.')
- ParentFont = False
- TabOrder = 6
- end
- object roomproperty: TListBox
- Left = 648
- Top = 152
- Width = 113
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
- 'xxx,1'
- 'xxx,2'
- 'xxx,3'
- 'xxx,4'
- 'xxx,5'
- 'xxx,6'
- 'xxx,7'
- 's,1,south,1,w,3,hole,3,wall,3,west,3'
- 'n,0,e,2,train,2,north,0,door,0'
- 's,1,south,1,nw,3,northwest,3,cubicles,3'
- 'door,2,se,2,southeast,2,south,2,desk,0')
- ParentFont = False
- TabOrder = 7
- end
- object ListBox7: TListBox
- Left = 760
- Top = 16
- Width = 41
- Height = 97
- ItemHeight = 13
- Items.Strings = (
-
- 'eat;drink;taste:it tastes like a really dry margarita,open;use:Y' +
- 'ou need a knife to open it'
- 'eat;drink;taste:it tastes lemony,open;use:its delicious')
- TabOrder = 8
- end
- object objloc: TListBox
- Left = 288
- Top = 152
- Width = 25
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '0'
- '5')
- ParentFont = False
- TabOrder = 9
- end
- object ListBox9: TListBox
- Left = 280
- Top = 16
- Width = 41
- Height = 97
- ItemHeight = 13
- Items.Strings = (
- 'Possess:Knife,Location:Any')
- TabOrder = 10
- end
- object huhs: TListBox
- Left = 368
- Top = 16
- Width = 41
- Height = 97
- ItemHeight = 13
- Items.Strings = (
- 'Sorry?'
- 'Duhh?'
- 'Duh what?'
- 'huh?'
- 'I don'#39't understand.'
- '')
- TabOrder = 11
- end
- object parserbox: TListBox
- Left = 424
- Top = 16
- Width = 33
- Height = 97
- ItemHeight = 13
- TabOrder = 12
- end
- object directions: TListBox
- Left = 768
- Top = 184
- Width = 121
- Height = 97
- ItemHeight = 13
- TabOrder = 13
- end
- object special: TListBox
- Left = 472
- Top = 16
- Width = 281
- Height = 97
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
-
- '"Coconut Monkey, are you okay?" The darkness begins to fade as y' +
- 'ou open your eyes. You blink and sit up with a hollow thunk. You' +
- #39're sitting on a metal table in the center of a circular room. T' +
- 'he metal-paneled walls bulge here and there with consoles litter' +
- 'ed with multi-colored buttons. Screens flicker around the room w' +
- 'ith strange symbols and running lines of text. You hear a faint ' +
- 'hum in the background, similar to the sound that emanated from y' +
- 'our monitor before everything went black. You shake your head gr' +
- 'oggily. Where are you? "Thank goodness! We thought we lost you f' +
- 'or sure!" Your eyes slowly settle on the owner of the strange vo' +
- 'ice, and you see a tall, silver-skinned humanoid figure with lar' +
- 'ge eyes and an oval head. Next to him (it?) stand three figures ' +
- 'that look exactly the same. The dark eyes stare back at you, and' +
- ' you fight the urge to enter the blackness once again.'
-
- '"You were so brave, Coconut Monkey! Thank you for saving us! Now' +
- ' we must continue the trip to our planet." With a start, you rec' +
- 'ognize where you are. The last time you saw Coconut Monkey Theat' +
- 'er on the PC Gamer CD, Coconut Monkey was on board an alien ship' +
- ' and had to shoot down a field of asteroids before they pummeled' +
- ' the ship. Could it be that you'#39're inside Coconut Monkey'#39's head ' +
- 'somehow? But wait, wasn'#39't there a problem after the asteroid thr' +
- 'eat? Before you can think of it, one of the aliens says, "Oh, no' +
- '! One of the asteroids must have gotten through and damaged our ' +
- 'navigation systems. We'#39're heading straight for a black hole! Wha' +
- 't will we do? Coconut Monkey, you must help us!" Alarms start to' +
- ' sound, and all four aliens look at you expectantly.'
-
- 'You hop off the table, but as you start to head down the hall on' +
- 'e of the aliens grabs you and says, "Wait a minute, Coconut Monk' +
- 'ey! You must help us!" He then places you back on the table.'
-
- 'You hop off the table and fly through the air. You hear one of t' +
- 'he aliens shout, "No! Not the Emergency Airlock Release!" You hi' +
- 't the lever and feel it move under you before you fall off and h' +
- 'it the floor with a hollow "THUNK!" You can feel the ship rumble' +
- ' underneath you. One of the aliens shouts "We must get out of he' +
- 're" as the door next to the lever begins to open and air rushes ' +
- 'through the opening. '
-
- 'You hop off the table heading south, but bounce off the hard met' +
- 'al door. For a moment you see little Coconut Monkeys floating ar' +
- 'ound your head, and then you realize one of the aliens picked yo' +
- 'u up and put you back on the table. '
-
- '"Oh, no you don'#39't!" shouts one of the aliens, and catches you in' +
- ' a mid-air hop toward the consoles to the west. "Stop messing wi' +
- 'th our translator! It breaks easily!" He plops you back on the m' +
- 'etal table.'
-
- 'You hop off the table to the north, but while in mid-air one of ' +
- 'the aliens moves between you and the flat wall. "Don'#39't do that! ' +
- 'You know it opens a secret door, and we'#39'll all get sucked out in' +
- 'to space if you open it right now! That'#39's a bad thing!" You boun' +
- 'ce off the alien'#39's chest, and land hard on the ground. Another a' +
- 'lien picks you up and puts you back on the table before you can ' +
- 'figure out if you cracked your shell or not.'
-
- 'Your vain attempt to do the wrong thing has cost you your life. ' +
- 'As you flounder about meaninglessly, you feel your body getting ' +
- 'sucked out of the airlock. As you float out into space, you thin' +
- 'k to yourself, "What'#39's the average flight velocity of an African' +
- ' swallow carrying a Coconut Monkey?"'
-
- 'You start hopping down the hall, and the four aliens follow you.' +
- ' As you get to the end, you see a passageway branching off to th' +
- 'e north and south. In front of you is a large knob with alien te' +
- 'xt above it.'
-
- 'You start to hop to the north, but your progress is halted by hu' +
- 'ge amounts of air rushing past you. You start to tumble backward' +
- 's and are swept into the west-bound hallway and out through the ' +
- 'airlock at the end. As you tumble out into the space, you think ' +
- 'to yourself, "Do Coconut Monkey'#39's explode in a vacuum?"'
-
- 'You start to hop to the south, but your progress is halted by hu' +
- 'ge amounts of air rushing past you. You start to tumble backward' +
- 's and are swept into the west-bound hallway and out through the ' +
- 'airlock at the end. As you tumble out into the space, you think ' +
- 'to yourself, "If a Coconut Monkey screams in space, will a falli' +
- 'ng tree in a forest hear it?"'
-
- 'You hop on one of the alien'#39's head, and he looks as if he'#39's sudd' +
- 'enly awoken from a nightmare. He immediately turns the dial, whi' +
- 'ch shuts a large metal door at the end of the western hallway. T' +
- 'he rumbling sound of air getting sucked into space slowly abates' +
- '. The aliens look at you with puzzlement. "Coconut Monkey," one ' +
- 'of them says, "why did you almost get us killed?"'
-
- 'You hop down to the south, and the passage ends in a small room.' +
- ' There'#39's a door on the far wall, but it remains closed. There'#39's ' +
- 'nothing to do here, so you hop back the way you came.'
-
- '"Well, fellas, what do you think we should do?" you ask the alie' +
- 'ns. They look at you, and then at each other. One of them says, ' +
- '"Perhaps the strange device we found will help us. It'#39's in the s' +
- 'outh room. We can'#39't read what the label says. Maybe you should s' +
- 'ee if it'#39'll help. I'#39'll open up the lock on the door for you." Th' +
- 'e alien presses a button, and then looks at you expectantly. '
-
- 'The south passageway ends in a small room with a door on the far' +
- ' wall. The door stands open, and you see a strange device standi' +
- 'ng in the middle of an even small room. The device has a single ' +
- 'red button on top, and a line of text written underneath the but' +
- 'ton.'
-
- 'With a start, you realize the text underneath the button is writ' +
- 'ten in Azure Libran, the native language of your home island in ' +
- 'the south Pacific, and readable only by Coconut Monkeys. You vag' +
- 'uely remember a life other than that of Coconut Monkey, but you ' +
- 'shrug it off as being the result of stress. The text says, "DEUS' +
- ' EX MACHINA DEVICE -- USE ONLY IN CASE OF HEADING STRAIGHT TOWAR' +
- 'D BLACK HOLE!"'
-
- 'Your pathetic attempt at doing the right thing was actually the ' +
- 'wrong thing, and now you can feel the pull of the black hole as ' +
- 'it rips the hull of the UFO apart. As you are pull out through a' +
- ' fracture into the vastness of space, you vaguely see debris flo' +
- 'wing toward the gaping maw of the black hole. Before the darknes' +
- 's overcomes you, you think to yourself "If a black hole is so po' +
- 'werful light can'#39't escape, how come I can see it?"'
-
- 'You hop high in the air, and come down on the red button with a ' +
- 'loud "thunk!" A bright light flashes, temporarily blinking you, ' +
- 'and you can feel the ship suddenly accelerate at incredible spee' +
- 'ds in the direction it was heading, straight toward the black ho' +
- 'le! You hear a roar suddenly envelop the ship and an immense tre' +
- 'mbling starts shaking the vessel. You'#39're tossed around like a ra' +
- 'g doll as the roar becomes louder, and the shaking becomes harde' +
- 'r. Suddenly there'#39's an explosion of light and color and you star' +
- 't to lose consciousness. But not before you think to yourself, "' +
- 'What next?"')
- ParentFont = False
- TabOrder = 14
- end
- object ShowList: TListBox
- Left = 320
- Top = 152
- Width = 17
- Height = 273
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ItemHeight = 11
- Items.Strings = (
- '1'
- '1'
- '0'
- '0'
- '0'
- '1'
- '1'
- '0'
- '0'
- '0'
- '0'
- '1')
- ParentFont = False
- TabOrder = 15
- end
- object ondisk: TListBox
- Left = 816
- Top = 32
- Width = 49
- Height = 81
- ItemHeight = 13
- TabOrder = 16
- end
- object ondiskpaths: TListBox
- Left = 872
- Top = 32
- Width = 49
- Height = 81
- ItemHeight = 13
- TabOrder = 17
- end
- object loaditems: TListBox
- Left = 928
- Top = 32
- Width = 49
- Height = 81
- ItemHeight = 13
- TabOrder = 18
- end
- end
-